home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).do / GUESS-IT.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  58 lines
  1. 0  DIM A$(16): DIM A(16): DIM T(16)
  2. 2  ONERR  GOTO 900
  3. 3  SPEED= 255
  4. 5 SO =  -16336
  5. 10  FOR I = 0 TO 15: READ A$(I): NEXT I
  6. 20  TEXT : HOME : VTAB 5:S$ = "---->--->-->->> GUESS-IT <<-<--<---<----": GOSUB 1000
  7. 25  PRINT :S$ = "----->-->->> BY TOM MCDONALD <<-<--<----": GOSUB 1000
  8. 27  PRINT 
  9. 30  PRINT :S$ = "I'LL BET YOU FIFTY DOLLARS THAT YOU CANTGUESS WHICH COLOR APPEARS MOST OFTEN.": GOSUB 1000
  10. 32  PRINT : FOR I = 1 TO 1000: NEXT 
  11. 35  PRINT : PRINT "THE COLORS ARE:"
  12. 40  FOR I = 0 TO 7: PRINT A$(I): NEXT 
  13. 50  VTAB 14: FOR I = 8 TO 15: HTAB 15: PRINT A$(I): NEXT 
  14. 60  PRINT :S$ = "-------------> HIT A KEY <--------------": GOSUB 1000
  15. 65  IF  PEEK( -16384) <127  THEN 65
  16. 70  HOME 
  17. 100  GR : FOR Y = 10 TO 30: FOR X = 10 TO 30: COLOR=  INT( RND(1) *16): PLOT X,Y: NEXT X,Y
  18. 110  VTAB 22: PRINT "WHAT IS YOUR GUESS";: INPUT G$
  19. 115  FOR I = 0 TO 15
  20. 120  IF G$ = A$(I)  THEN G = I: GOTO 133
  21. 125  NEXT I
  22. 130  GOTO 110
  23. 133  COLOR= 0
  24. 135  FOR Y = 10 TO 30: FOR X = 10 TO 30
  25. 140 C =  SCRN( X,Y): IF C = G  THEN Q =  PEEK(SO):Q =  PEEK(SO)
  26. 145 A(C) = A(C) +1
  27. 150  PLOT X,Y: NEXT X,Y
  28. 152 T = 0:TT = 0
  29. 155  FOR I = 0 TO 15
  30. 160  IF A(I) = T  THEN TT = I
  31. 165  IF A(I) >T  THEN T = A(I):P = I
  32. 170  NEXT I
  33. 175  IF A(P) >A(TT)  THEN TT = 0
  34. 199  TEXT 
  35. 200  HOME : FOR I = 0 TO 15: PRINT A$(I);: HTAB 11: PRINT "   (";A(I);")": NEXT I
  36. 210  PRINT : PRINT "BEST: ";A$(P);"  (";A(P);")   ";: IF TT < >0  THEN  PRINT A$(TT);"  (";A(TT);")"
  37. 220  PRINT : PRINT "YOUR CHOICE: ";G$;"  (";A(G);")"
  38. 230  IF A(G) = T  THEN 800
  39. 239  PRINT 
  40. 240  PRINT "WHERE'S MY FIFTY DOLLARS";: INPUT D$
  41. 250  FOR Z = 1 TO  LEN(D$)
  42. 255  IF  MID$ (D$,Z,3) = "N'T"  OR  MID$ (D$,Z,3) = "NOT"  OR  MID$ (D$,Z,2) = "NO"  THEN N = 0: GOTO 270
  43. 260  IF  MID$ (D$,Z,4) = "HERE"  OR  MID$ (D$,Z,2) = "50"  OR  MID$ (D$,Z,5) = "FIFTY"  THEN N = 1: GOTO 270
  44. 265 N = 2
  45. 267  NEXT Z
  46. 270  SPEED= 150: ON N +1 GOTO 275,280,290
  47. 275  PRINT : PRINT "HEY, YOU'D BETTER PAY UP!!!": GOTO 240
  48. 280  PRINT : PRINT "THANK YOU VERY MUCH!": FOR I = 1 TO 3000: NEXT : SPEED= 255: END 
  49. 290  PRINT : PRINT "I SAID, ";: GOTO 240
  50. 500  DATA  BLACK,MAGENTA,DARK BLUE,PURPLE,DARK GREEN,GRAY,BLUE,LIGHT BLUE,BROWN,ORANGE,DARK GREY,PINK,GREEN,YELLOW,AQUA,WHITE
  51. 501  END 
  52. 800  PRINT : PRINT "YOU DID IT!<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>  HERE'S YOUR FIFTY DOLLARS!"
  53. 805  PRINT 
  54. 810  PRINT "            +-----+"
  55. 815  PRINT "            ! 50$ !"
  56. 820  PRINT "            +-----+": END 
  57. 900  RESUME 
  58. 1000  FOR I = 1 TO  LEN(S$): PRINT  MID$ (S$,I,1);:Q =  PEEK(SO):Q =  PEEK(SO): NEXT I: RETURN